CLASS ycl_moon_test_130 DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.

    INTERFACES if_oo_adt_classrun .
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS YCL_MOON_TEST_130 IMPLEMENTATION.


  METHOD if_oo_adt_classrun~main.

    DATA:BEGIN OF ls_json,
           matnr TYPE matnr,
           menge TYPE p DECIMALS 2 LENGTH 13,
         END OF ls_json.

    DATA:lv_json TYPE string.
    lv_json = `{"matnr":"AA","menge":12345678.25}`.

    /ui2/cl_json=>deserialize( EXPORTING json        = lv_json
                                       pretty_name = /ui2/cl_json=>pretty_mode-low_case
                             CHANGING  data        = ls_json ).


    out->write( ls_json-menge ).

  ENDMETHOD.
ENDCLASS.
